home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe017.dms / pe017.adf / autoexec.Bak / autoexec.amosSourceCode next >
AMOS Source Code  |  1978-01-05  |  8KB  |  315 lines
  1. EARL:
  2. Bob Off 
  3. Auto View Off 
  4. Shared KEY,GAME
  5. Global KEY,GAME
  6. If GAME<1 Then SCR
  7. ZO
  8. If GAME<1 Then Double Buffer 
  9. 'cages 
  10. Bob 5,204,86,14
  11. Bob 6,152,86,14
  12. Bob 7,257,86,14
  13. 'cage lids 
  14. Bob 8,262,64,16
  15. Bob 9,209,64,16
  16. Bob 10,155,64,16
  17. KEY=0
  18. CAGE1
  19. CAGE2
  20. CAGE3
  21. MARK:
  22. BEAR
  23. SUM
  24. Rem change key numbers to change amount of shots needed to get key 
  25. If KEY>3 Then Amal Off 4
  26. If KEY>6 Then Amal Off 3
  27. If KEY>9 Then Amal Off 5
  28. If KEY=3 Then FIRST : BEAR : SUM
  29. If KEY=6 Then SECOND : BEAR : SUM
  30. If KEY=9 Then THIRD : FINALSCENARIO : Goto EARL
  31. AWAY
  32. Goto MARK
  33. Procedure BEAR
  34.    Channel 1 To Bob 15
  35.    Bob 15,-70,140,1
  36.    M$="Anim 3,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  37.    M$=M$+"Move 250,0,100 ; "
  38.    M$=M$+"Anim 1,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  39.    M$=M$+"Move -40,0,20;M 0,-40,10"
  40.    Amal 1,M$
  41.    Amal On 1
  42.    Wait 150
  43.    Amal Off 1
  44.    Bob 15,140,100,($8004)
  45. End Proc
  46. Procedure AWAY
  47.    Channel 2 To Bob 15
  48.    Bob 15,140,100,$8001
  49.    M$="Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  50.    M$=M$+"Move 40,40,100 ;"
  51.    M$=M$+"Anim 5,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  52.    M$=M$+" Move -250,0,80"
  53.    Amal 2,M$
  54.    Amal On 2
  55.    Wait 180
  56.    Amal Off 2
  57. End Proc
  58. Procedure SUM
  59.    ZX:
  60.    A=Rnd(10) : B=Rnd(8)
  61.    MA=Max(A,B) : MI=Min(A,B)
  62.    A=MA : B=MI
  63.    If A+B>12 or A+B<1 Then Goto ZX
  64.    A$=Str$(A) : B$=Str$(B)
  65.    Ink 15,14, : Text 33,80,A$ : Text 74,80,B$
  66.    Do 
  67.       C=Mouse Zone
  68.       If Mouse Click=1 and C>0 and C<13 Then Exit 
  69.    Loop 
  70.    C$=Str$(C)
  71.    Ink ,12, : Text 62,113,C$
  72. If A+B=C : Bell : Inc KEY : Else Shoot : End If 
  73.    Wait 100
  74.    Ink 12,, : Text 62,113,C$
  75.    Ink 14,14, : Text 33,80,A$ : Text 74,80,B$
  76. End Proc
  77. Procedure SCR
  78.    Screen Open 1,320,250,16,Lowres
  79.    Screen Open 0,320,250,16,Lowres
  80.    Load "care.bears:sprites/funshine.abk"
  81.    Curs Off : Flash Off : Hide 
  82.    Load "mus"
  83.    Load Iff "iff/caretitle.iff",0
  84.    Load Iff "care.bears:iff/bear.iff",1
  85.    Get Disc Fonts : Set Font 4 : Set Text 0
  86.    Screen Display 0,128,45,,
  87.    Get Sprite Palette 
  88.    Music 1
  89.    Tempo 9
  90.    Repeat : Until Mouse Key=1
  91.    Screen Display 1,128,45,,
  92.    View 
  93. End Proc
  94. Procedure ZO
  95.    Reserve Zone 12
  96.    L=27
  97.    Locate 1,L : Print Zone$(Border$("1",2),1)
  98.    Locate 4,L : Print Zone$(Border$("2",2),2)
  99.    Locate 7,L : Print Zone$(Border$("3",2),3)
  100.    Locate 10,L : Print Zone$(Border$("4",2),4)
  101.    Locate 13,L : Print Zone$(Border$("5",2),5)
  102.    Locate 16,L : Print Zone$(Border$("6",2),6)
  103.    Locate 19,L : Print Zone$(Border$("7",2),7)
  104.    Locate 22,L : Print Zone$(Border$("8",2),8)
  105.    Locate 25,L : Print Zone$(Border$("9",2),9)
  106.    Locate 28,L : Print Zone$(Border$("10",2),10)
  107.    Locate 32,L : Print Zone$(Border$("11",2),11)
  108.    Locate 36,L : Print Zone$(Border$("12",2),12)
  109.    Limit Mouse 130,253 To 435,274
  110.    Show 
  111. End Proc
  112. Procedure CAGE1
  113.    Channel 4 To Bob 3
  114.    Bob 3,180,88,11
  115.    M$=M$+"B:Move 10,3,20 ; Move -10,-3,30;Jump B"
  116.    Amal 4,M$
  117.    Amal On 4
  118. End Proc
  119. Procedure CAGE2
  120.    Channel 3 To Bob 2
  121.    Bob 2,230,100,10
  122.    M$=M$+"C:Move 10,3,30 ; Move -10,-3,20;Jump C"
  123.    Amal 3,M$
  124.    Amal On 3
  125. End Proc
  126. Procedure CAGE3
  127.    Channel 5 To Bob 4
  128.    Bob 4,286,88,11
  129.    M$="D:Move 10,-3,30 ;M-10,3,20;Jump D "
  130.    Amal 5,M$
  131.    Amal On 5
  132. End Proc
  133. Procedure FIRST
  134.    For Y=126 To 130
  135.       Bob 11,45,Y,7
  136.       Wait 5
  137.    Next Y
  138.    Rem gets key and opens first cage
  139.    Channel 6 To Bob 15
  140.    Bob 15,140,100,$8001
  141.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  142.    M$=M$+"Move 0,-20,20;M -90,0,30"
  143.    M$=M$+"Anim 3,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  144.    M$=M$+"Move 130,0,100 ; M 0,-20,20"
  145.    Amal 6,M$
  146.    Amal On 6
  147.    Do 
  148.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  149.    Loop 
  150.    Wait 200
  151.    ' lock open
  152.    Bob 12,194,81,15
  153.    'lid open
  154.    Bob Off 10
  155.    Bob 1,156,64,17
  156.    Rem bear goes away 
  157.    Channel 7 To Bob 15
  158.    Bob 15,140,100,1
  159.    M$=""
  160.    M$="Anim 3,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  161.    M$=M$+"Move 0,50,50;M 230,0,150"
  162.    Amal 7,M$
  163.    Amal On 7
  164.    Wait 150
  165.    Rem star comes out of box
  166.    Channel 8 To Bob 3
  167.    Bob 3,180,88,12
  168.    M$=""
  169.    M$=M$+"Anim 0,(12,150)(13,25)"
  170.    M$=M$+"Move 1,-50,50;M -15,0,10"
  171.    M$=M$+"Star:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Star"
  172.    Amal 8,M$
  173.    Amal On 8
  174.    Wait 150
  175. End Proc
  176. Procedure SECOND
  177.    For Y=126 To 130 Step 2
  178.       Bob 11,45,Y,7
  179.       Wait 5
  180.    Next Y
  181.    Rem gets key and opens second cage 
  182.    Channel 9 To Bob 15
  183.    Bob 15,140,100,$8001
  184.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  185.    M$=M$+"Move 0,-20,20;M -90,0,30"
  186.    M$=M$+"Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  187.    M$=M$+"Move 180,0,100 ; M 0,-20,20"
  188.    Amal 9,M$
  189.    Amal On 9
  190.    Do 
  191.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  192.    Loop 
  193.    Wait 200
  194.    ' lock open
  195.    Bob 13,246,81,15
  196.    'lid open
  197.    Bob 5,208,66,17
  198.    Rem NEW CAGE ,I got bob priorities all wrong 
  199.    Bob Off 9
  200.    Bob 10,204,86,14
  201.    Rem bear goes away 
  202.    Channel 10 To Bob 15
  203.    Bob 15,230,60,1
  204.    M$=""
  205.    M$="Anim 3,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  206.    M$=M$+"Move 0,50,30;M 230,0,120"
  207.    Amal 10,M$
  208.    Amal On 10
  209.    Wait 110
  210.    Rem heart comes out of box 
  211.    Bob Off 2
  212.    Channel 11 To Bob 9
  213.    Bob 9,230,100,9
  214.    M$=""
  215.    M$=M$+"Move-5,-50,50;"
  216.    M$=M$+"Heart:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Heart"
  217.    Amal 11,M$
  218.    Amal On 11
  219.    Wait 150
  220. End Proc
  221. Procedure THIRD
  222.    For Y=126 To 130 Step 2
  223.       Bob 11,45,Y,7
  224.       Wait 5
  225.    Next Y
  226.    Rem gets key and opens first cage
  227.    Channel 12 To Bob 15
  228.    Bob 15,140,100,$8001
  229.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  230.    M$=M$+"Move 0,-20,20;M -90,0,30"
  231.    M$=M$+"Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  232.    M$=M$+"Move 240,0,140 ; M 0,-20,20"
  233.    Amal 12,M$
  234.    Amal On 12
  235.    Do 
  236.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  237.    Loop 
  238.    Wait 200
  239.    ' lock open
  240.    Bob 14,298,81,15
  241.    Rem dont need 1st and 2nd bars now 
  242.    Bob Off 10
  243.    Bob Off 6
  244.    Rem 3rd lid down goes bye,bye
  245.    Bob Off 8
  246.    ' lid open 
  247.    Bob 2,262,65,17
  248.    Rem bear goes away 
  249.    Channel 13 To Bob 15
  250.    Bob 15,290,40,1
  251.    M$=""
  252.    M$="Anim 2,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  253.    M$=M$+"Move 0,50,20;M 80,0,50"
  254.    Amal 13,M$
  255.    Amal On 13
  256.    Wait 80
  257.    Rem star comes out of box
  258.    Channel 14 To Bob 4
  259.    Bob 4,286,88,12
  260.    M$=""
  261.    M$=M$+"Anim 0,(12,150)(13,25)"
  262.    M$=M$+"Move 0,-50,50;"
  263.    M$=M$+"Star:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Star"
  264.    Amal 14,M$
  265.    Amal On 14
  266.    Wait 150
  267. End Proc
  268. Procedure FINALSCENARIO
  269.    Bob Off 7
  270.    Rem star 1 goes away 
  271.    Channel 4 To Bob 3
  272.    Bob 3,,,
  273.    Amal 4,"Move 0,90,50 ; Move -200,0,100 ; "
  274.    Amal On 4
  275.    Rem heart goes away
  276.    Channel 3 To Bob 9
  277.    Bob 9,,,
  278.    Amal 3,"Move 0,90,50 ; Move -280,0,140 ; "
  279.    Amal On 3
  280.    Rem star 2 goes away 
  281.    Channel 5 To Bob 4
  282.    Bob 4,,,
  283.    Amal 5,"Move 0,90,50 ; Move -380,0,190 ; "
  284.    Amal On 5
  285.    Wait 300
  286.    Rem play again sequence
  287.    Screen Open 5,320,90,16,Lowres : Curs Off : Flash Off : Cls 0
  288.    Box 30,10 To 300,80 : Box 32,12 To 298,78
  289.    Cls 4,33,13 To 298,78
  290.    Paper 4
  291.    Locate 13,2 : Print "Well done."
  292.    Locate 13,3 : Print "Play again?"
  293.    Auto View On 
  294.    Rem view 
  295.    For Z=1 To 90
  296.       Screen Display 5,,,,Z
  297.       Wait 1
  298.    Next Z
  299.    Reserve Zone 2
  300.    Paper 11
  301.    Locate 10,6 : Print Zone$(Border$("Yes",2),1)
  302.    Locate 30,6 : Print Zone$(Border$("No",2),2)
  303.    Limit Mouse 157,60 To 425,130
  304.    Do 
  305.       If Mouse Key=1 and Mouse Zone>0 Then MZ=Mouse Zone
  306.       If MZ=2 Then End 
  307.       If MZ=1 Then Exit 
  308.    Loop 
  309.    For Z=90 To 1 Step -1
  310.       Screen Display 5,,,,Z
  311.       Wait 1
  312.    Next Z
  313.    Screen Close 5
  314.    GAME=1
  315. End Proc